home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / codeli_1 / setup.exe / _SETUP.1 / Declares.bas < prev    next >
Encoding:
BASIC Source File  |  1997-08-14  |  1.2 KB  |  36 lines
  1. Attribute VB_Name = "Declares"
  2. Public Const MAX_PATH = 260
  3. Public Const SHGFI_DISPLAYNAME = &H200
  4. Public Const SHGFI_EXETYPE = &H2000
  5. Public Const SHGFI_SYSICONINDEX = &H4000  ' System icon index
  6. Public Const SHGFI_LARGEICON = &H0        ' Large icon
  7. Public Const SHGFI_SMALLICON = &H1        ' Small icon
  8. Public Const ILD_TRANSPARENT = &H1        ' Display transparent
  9. Public Const SHGFI_SHELLICONSIZE = &H4
  10. Public Const SHGFI_TYPENAME = &H400
  11. Public Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME _
  12.    Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX _
  13.    Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
  14.  
  15. Public Type SHFILEINFO
  16.     hIcon As Long
  17.     iIcon As Long
  18.     dwAttributes As Long
  19.     szDisplayName As String * MAX_PATH
  20.     szTypeName As String * 80
  21. End Type
  22.  
  23. Public Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" _
  24.    (ByVal pszPath As String, _
  25.     ByVal dwFileAttributes As Long, _
  26.     psfi As SHFILEINFO, _
  27.     ByVal cbSizeFileInfo As Long, _
  28.     ByVal uFlags As Long) As Long
  29.  
  30. Public Declare Function ImageList_Draw Lib "comctl32.dll" _
  31.    (ByVal himl&, ByVal i&, ByVal hDCDest&, _
  32.     ByVal x&, ByVal y&, ByVal flags&) As Long
  33.  
  34. Public shinfo As SHFILEINFO
  35.  
  36.